VB中如何创建并写入txt文件

Private Sub Command2_Click()     Open "F:\TEST\b.txt" For Output As #1     Print #1, Text1.Text     Close End Sub 以上代码可以创建一个txt文件

Private Sub Command1_Click()     Dim str     Open "F:\TEST\a.txt" For Append As #1京东     str = Text1.Text     Write #1, str     Close #1 End Sub

以上代码可以往一个txt文件当中写入数据